home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / pp / pp-6.0 / Lib / or / or_blank.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-12-18  |  1.1 KB  |  61 lines
  1. /* or_blank.c: do strange things with blanks. */
  2.  
  3. # ifndef lint
  4. static char Rcsid[] = "@(#)$Header: /xtel/pp/pp-beta/Lib/or/RCS/or_blank.c,v 6.0 1991/12/18 20:23:08 jpo Rel $";
  5. # endif
  6.  
  7. /*
  8.  * $Header: /xtel/pp/pp-beta/Lib/or/RCS/or_blank.c,v 6.0 1991/12/18 20:23:08 jpo Rel $
  9.  *
  10.  * $Log: or_blank.c,v $
  11.  * Revision 6.0  1991/12/18  20:23:08  jpo
  12.  * Release 6.0
  13.  *
  14.  */
  15.  
  16.  
  17.  
  18. #include "or.h"
  19. #include "util.h"
  20.  
  21. int or_blank (or)
  22. OR_ptr          *or;
  23. {
  24.     OR_ptr      ptr;
  25.  
  26.     PP_DBG (("Lib/or_blankor (i.e no addr given)"));
  27.  
  28.     *or = or_new (OR_S, "", "");
  29.     ptr = or_new (OR_OU, "", "");
  30.     *or = or_add (*or, ptr, TRUE);
  31.  
  32.     if (*or == NULLOR)
  33.     return (NOTOK);
  34.  
  35.     ptr = or_new (OR_O, "", "");
  36.     *or = or_add (*or, ptr, TRUE);
  37.  
  38.     if (*or == NULLOR)
  39.     return (NOTOK);
  40.  
  41.     ptr = or_new (OR_PRMD, NULLCP, "");
  42.     *or = or_add (*or, ptr, TRUE);
  43.  
  44.     if (*or == NULLOR)
  45.     return (NOTOK);
  46.  
  47.     ptr = or_new (OR_ADMD, NULLCP, "");
  48.     *or = or_add (*or, ptr, TRUE);
  49.  
  50.     if (*or == NULLOR)
  51.     return (NOTOK);
  52.  
  53.     ptr = or_new (OR_C, NULLCP, "");
  54.     *or = or_add (*or, ptr, TRUE);
  55.  
  56.     if (*or == NULLOR)
  57.     return (NOTOK);
  58.  
  59.     return (OK);
  60. }
  61.